perm filename PUREP.6[MAC,LSP] blob
sn#555019 filedate 1981-01-07 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 -*-MIDAS-*-
C00003 ENDMK
Cā;
;-*-MIDAS-*-
TITLE PUREP/WRITEABLEP
.insrt fasdfs.mid[mac,lsp]
.fasl
; This is a file with two primitives, WRITEABLEP and PUREP
; Note labels 'purep' and 'writeablep' exist only for the sake of TAGS
.entry PUREP SUBR 002
purep: hrrz tt,a ;find the entry in the segment table
lsh tt,-seglog
move tt,st(tt) ;(we want the left half too)
tlnn tt,st.pur
jrst false
true: movei a,.atom T
popj p,
.entry WRITEABLEP SUBR 002
writeablep: hrrz tt,(a)
setz a,
calli a,400021
jumpe a,true
camge tt,hiseg
jrst true
false: setz a,
popj p,
hiseg: 400000
FASEND